GAIN NOUPDATE
USE EMP.DBF AGAIN NOUPDATE IN 2 ORDER EMPID
USE JOB.DBF AGAIN NOUPDATE IN 3 ORDER JOBID
SET EXACT ON
SET FILTER TO FOUND(2) .AND. FOUND(3)
SET RELATION TO TRIM(EMPID) INTO B,JOBID INTO C
SET SKIP TO B,C
QBE___SAFE = SET("SAFETY")
QBE___CATA = SET("CATALOG")
SET SAFETY OFF
SET CATALOG OFF
GO TOP
,B->EMPID,C->JOBID
COPY TO QBE___11
USE QBE___11 NOSAVE NOUPDATE
IF RECCOUNT() > 1
SORT TO QBE___12 ON EMPID/A,JOBID/A
USE QBE___12 NOSAV
CUSTCODE
STARTDATE
JOBID
JOBDESC
TIME.DBF
EMP.DBF
JOB.DBF
CUSTCODE
BOISE     
WHISPER   
CUSTCODE
STARTDATE
STARTDATE
JOBID
BOI01
WHI01
JOBID
JOBDESC
Accounting Program                                
Tenant Tracking                                   
JOBDESC
BOISE     
BRIGHTON  
BRIGHTON  
GSA       
LIMBER    
WESTWINDS 
WHISPER   
BOI01
BRI01
BRI02
GSA01
LIT01
WES01
WHI01
Accounting Program                                 
Catalog For Photographs                            
Class Scheduling Program                           
Job Costing System                                =
Network for Pulp Mill                             
Sales Force Mail File                             
Tenant Tracking